home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / rainbow.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  312 lines
  1. 10 REM PROGRAMMED BY BOB YEWCHUK           MISSISSAUGA ONTARIO L5G 3Z1
  2. 20 REM AS OF DECEMBER 25,1982
  3. 30 REM SOUND WITH WORDS ON SCREEN
  4. 100 CLR:PRINTCHR$(8):PRINTCHR$(142):PRINTCHR$(155):GOSUB50000
  5. 120 BO=53280:BG=53281:POKEBO,0:POKEBG,0
  6. 140 VC=54296:REM VOLUME CONTROL
  7. 160 A1=54277:A2=54284:A3=54291
  8. 180 S1=54278:S2=54285:S3=54292
  9. 200 W1=54276:W2=54283:W3=54290
  10. 220 H1=54273:H2=54280:H3=54287
  11. 240 L1=54272:L2=54279:L3=54286
  12. 300 REM CONTROL STRINGS
  13. 320 CS$=CHR$(147):REM CLEAR SCREEN
  14. 340 L$=CHR$(17)+CHR$(17):REM PRINT TWO  LINES DOWN
  15. 360 N$="":REM NO CHARACTER
  16. 500 POKEVC,15
  17. 520 POKEA1,136:POKEA2,136:POKEA3,136
  18. 540 POKES1,136:POKES2,136:POKES3,136
  19. 560 POKEW1,33:POKEW2,33:POKEW3,33
  20. 600 REM "OVER THE RAINBOW" -- COPYRIGHT     1938 METRO-GOLDWYN-MAYER INC.
  21. 620 REM FROM THE PICTURE "THE WIZARD OF     OZ" -- ALL RIGHTS RESERVED.
  22. 1000 REM START OF SONG -- READ IN NOTES AND STRING DATA WITH CONTROL CHARS.
  23. 1020 REM PART ONE -- BLACK AND WHITE         BEGINNING OF SONG PLAYED SLOWLY
  24. 1060 PRINT"[147]        SOMEWHERE  OVER  THE"
  25. 1070 PRINT"       RAINBOW"
  26. 1080 PRINT"          BY  BOB  YEWCHUK"
  27. 1100 FORT=1TO2800:NEXT:PRINTCS$;L$
  28. 1120 W=300:REM TIME DELAY VARIABLE
  29. 1200 READ A,B,C,D,E,F,G$
  30. 1210 IFA=500THENW=W-100:GOTO1200
  31. 1220 IFA=600THENGOSUB1350:GOTO1200
  32. 1230 IFA=700THENW=W+100:GOTO1200
  33. 1240 IFA=800THENW=200:GOTO1200
  34. 1250 IFA=999THENGOSUB50000:GOSUB1350:END:PRINTCHR$(144):PRINTCHR$(9):END
  35. 1260 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
  36. 1270 POKEW1,33:POKEW2,33:POKEW3,33
  37. 1280 IFG$=""THEN1310
  38. 1290 IFASC(G$)=133THENPRINT:PRINT
  39. 1300 IFASC(G$)=137THENPRINTCS$;L$
  40. 1310 PRINTG$;
  41. 1320 FORT=1TOW:NEXT
  42. 1330 GOTO1200
  43. 1340 REM PART TWO -- IN COLOUR
  44. 1350 POKEH1,O:POKEL1,0:POKEH2,0:POKEL2,0:POKEH3,0:POKEL3,0
  45. 1360 PRINT"[147]":FORT=1TO43:POKEBO,T:POKEBG,T:FORQ=1TO15:NEXTQ,T
  46. 1370 W=150:RETURN
  47. 1500 REM START OF DATA
  48. 1520 DATA0,0,25,177,0,0,,0,0,30,141,0,0,,15,70,25,177,10,60,,15,70,30,141
  49. 1525 DATA10,60,
  50. 1530 DATA17,37,25,177,10,60,,17,37,30,141,10,60,,15,70,25,177,10,60,,15,70
  51. 1535 DATA30,141,10,60,:REM BAR 1
  52. 1540 DATA0,0,27,56,0,0,,0,0,30,141,0,0,,17,37,27,56,11,114,,17,37,30,141,11,114,
  53. 1550 DATA20,100,27,56,11,114,,20,100,30,141,11,114,,19,63,27,56,11,114,,19,63
  54. 1555 DATA30,141,11,114,:REM BAR 2
  55. 1560 DATA0,0,34,75,0,0,,0,0,34,75,0,0,,19,63,34,75,7,163,,19,63,34,75,7,163,
  56. 1570 DATA22,227,34,75,12,216,,22,227,34,75,12,216,,20,100,34,75,12,216,,20,100
  57. 1575 DATA34,75,12,216,:REM BAR 3
  58. 1580 DATA30,141,61,126,19,63,,30,141,45,198,19,63,,27,56,54,111,17,37,,27,56
  59. 1585 DATA40,200,17,37,
  60. 1590 DATA25,177,51,97,15,70,,25,177,38,126,15,70,,38,126,45,198,15,70,:REM BAR 4
  61. 1600 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"WHEN "
  62. 1610 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  63. 1620 DATA15,70,30,141,10,60,WORLD ,15,70,30,141,10,60,
  64. 1630 DATA15,70,22,227,10,60,IS ,15,70,25,177,10,60,"A ":REM BAR 5
  65. 1640 DATA17,37,27,56,0,0,HOPE-,17,37,00,00,0,0,
  66. 1650 DATA17,37,27,56,0,0,"LESS ",17,37,00,00,0,0,
  67. 1660 DATA17,37,27,56,10,60,"JUM-",17,37,30,141,10,60,"[133]BLE "
  68. 1670 DATA17,37,20,100,10,60,AND ,17,37,22,227,10,60,"THE "
  69. 1680 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
  70. 1685 DATA19,63,25,177,0,0,DROPS ,19,63,0,0,0,0,
  71. 1690 DATA19,63,25,177,10,60,TUM-,19,63,30,141,10,60,"BLE "
  72. 1700 DATA19,63,19,63,10,60,ALL ,19,63,20,100,10,60,"A "
  73. 1710 DATA0,0,22,227,5,185,"[133]ROUND,",0,0,22,227,5,185,
  74. 1720 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  75. 1730 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  76. 1740 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 8
  77. 1750 DATA0,0,25,177,5,25,"[133]HEAV-",7,163,25,177,5,25,
  78. 1760 DATA8,147,25,177,5,25,,8,147,25,177,5,25,
  79. 1770 DATA0,0,25,177,5,103,EN  ,8,147,25,177,5,103,
  80. 1780 DATA9,21,25,177,5,103,,9,21,25,177,5,103,:REM BAR 9
  81. 1785 DATA500,500,500,500,500,500,TRIPLET
  82. 1790 DATA20,100,25,177,8,147,O-,20,100,25,177,8,147,
  83. 1800 DATA20,100,30,141,8,147,PENS  ,20,100,30,141,8,147,
  84. 1810 DATA20,100,27,56,8,147,A  ,20,100,27,56,8,147,
  85. 1815 DATA700,700,700,700,700,700,SLOWER
  86. 1820 DATA21,154,25,177,7,163,MAG-,21,154,25,177,7,163,
  87. 1830 DATA21,154,22,227,7,163,IC  ,21,154,22,227,7,163,:REM  BAR 10
  88. 1840 DATA12,216,20,100,0,0,"LANE.",12,216,20,100,0,0,
  89. 1850 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  90. 1860 DATA0,0,20,100,12,216,,0,0,20,100,12,216,
  91. 1870 DATA0,0,20,100,17,37,,0,0,20,100,17,37,:REM BAR 11
  92. 1880 DATA30,141,61,126,19,63,,30,141,45,198,19,63,
  93. 1890 DATA27,56,54,111,17,37,,27,56,40,200,17,37,
  94. 1900 DATA25,177,51,97,15,70,,25,177,38,126,15,70,
  95. 1910 DATA22,227,45,198,13,156,,22,227,34,75,13,156,:REM BAR 12
  96. 1920 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"[133]WHEN "
  97. 1930 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  98. 1940 DATA15,70,30,141,10,60,CLOUDS ,15,70,30,141,10,60,
  99. 1950 DATA15,70,22,227,10,60,DARK-,15,70,25,177,10,60,"EN ":REM BAR 13
  100. 1960 DATA17,37,27,56,0,0,UP ,17,37,00,00,0,0,
  101. 1970 DATA17,37,27,56,0,0,"THE ",17,37,00,00,0,0,
  102. 1980 DATA17,37,27,56,10,60,"SKY-",17,37,30,141,10,60,"[133]WAY "
  103. 1990 DATA17,37,20,100,10,60,THERE'S ,17,37,22,227,10,60,"A ":REM BAR 14
  104. 2000 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
  105. 2010 DATA19,63,25,177,0,0,BOW  ,19,63,0,0,0,0,
  106. 2020 DATA19,63,25,177,10,60,HIGH-,19,63,30,141,10,60,"WAY "
  107. 2030 DATA19,63,19,63,10,60,TO ,19,63,20,100,10,60,"BE "
  108. 2040 DATA0,0,22,227,5,185,"[133]FOUND,",0,0,22,227,5,185,
  109. 2050 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  110. 2060 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  111. 2070 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 16
  112. 2080 DATA0,0,19,63,4,73,"[133]LEAD-",0,0,19,63,4,73,
  113. 2090 DATA12,216,19,63,4,73,,12,216,19,63,4,73,
  114. 2100 DATA12,216,20,100,8,147,ING ,12,216,20,100,8,147,
  115. 2110 DATA12,216,20,100,8,147,,12,216,20,100,8,147,:REM BAR 17
  116. 2120 DATA24,63,40,200,17,63,FROM ,24,63,40,200,17,63,
  117. 2130 DATA24,63,38,126,17,37,YOUR ,24,63,38,126,17,37,
  118. 2140 DATA25,177,34,75,11,114,WIN-,25,177,34,75,11,114,
  119. 2150 DATA25,177,38,126,5,185,DOW ,25,177,38,126,5,185,:REM BAR 18
  120. 2160 DATA0,0,30,141,7,163,PANE ,0,0,30,141,7,163,
  121. 2170 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  122. 2180 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  123. 2190 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 19
  124. 2200 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  125. 2210 DATA17,37,0,0,7,163,"[133]TO ",20,100,0,0,7,163,"A "
  126. 2220 DATA25,177,0,0,7,163,PLACE ,30,141,0,0,7,163,"BE-"
  127. 2230 DATA38,126,0,0,7,163,HIND ,40,200,0,0,7,163,"THE ":REM BAR 20
  128. 2240 DATA0,0,30,141,7,163,SUN,0,0,30,141,7,163,
  129. 2250 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  130. 2260 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  131. 2270 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 21
  132. 2290 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  133. 2300 DATA0,0,17,37,7,163,"[133]JUST ",0,0,20,100,7,163,"A "
  134. 2310 DATA0,0,25,177,7,163,STEP ,0,0,30,141,7,163,"BEY-"
  135. 2320 DATA28,214,38,126,12,32,OND ,23,214,40,200,12,32,"THE ":REM BAR 22
  136. 2330 DATA0,0,45,198,0,0,RAIN,27,56,45,198,22,227,
  137. 2340 DATA40,200,45,198,34,75,,40,200,45,198,34,75,
  138. 2350 DATA34,75,45,198,27,56,,51,97,45,198,40,200,:REM BAR 23
  139. 2360 DATA30,141,0,0,0,0,,30,141,40,200,45,198,
  140. 2370 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  141. 2380 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  142. 2390 DATA30,141,76,252,102,194,,30,141,76,252,102,194,:REM BAR 24
  143. 2400 DATA600,600,600,600,600,600,PART ONE
  144. 2410 DATA12,216,20,100,7,163,"[144]SOME-",12,216,20,100,7,163,
  145. 2420 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  146. 2430 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  147. 2440 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 1
  148. 2450 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  149. 2460 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  150. 2470 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  151. 2480 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 2
  152. 2490 DATA0,0,20,100,6,206,WAY ,0,0,20,100,6,206,
  153. 2500 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  154. 2510 DATA25,177,34,75,10,60,UP ,25,177,34,75,10,60,
  155. 2520 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 3
  156. 2530 DATA22,227,30,141,12,216,"[133][153]HIGH,",22,227,30,141,12,216,
  157. 2540 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  158. 2550 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  159. 2560 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 4
  160. 2670 DATA0,0,17,37,10,60,"THERE'S ",0,0,17,37,10,60,
  161. 2680 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  162. 2690 DATA0,0,27,56,11,114,A ,0,0,27,56,11,114,
  163. 2700 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 5
  164. 2710 DATA20,100,25,177,7,163,LAND ,20,100,25,177,7,163,
  165. 2720 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"I "
  166. 2730 DATA20,100,25,177,8,147,HEARD ,20,100,25,177,8,147,
  167. 2740 DATA20,100,27,56,8,147,OF ,20,100,27,56,8,147,:REM BAR 6
  168. 2750 DATA19,63,22,227,5,185,"[133][154]ONCE ",19,63,22,227,5,185,
  169. 2760 DATA0,0,19,63,5,185,IN ,0,0,20,100,5,185,"A "
  170. 2770 DATA17,37,22,227,13,156,LULL-,17,37,22,227,13,156,
  171. 2780 DATA19,63,15,70,25,177,A-,19,63,15,70,25,177,:REM BAR 7
  172. 2790 DATA15,70,20,100,12,216,BY.,15,70,20,100,12,216,
  173. 2800 DATA34,75,40,200,10,60,,30,141,38,126,10,60,
  174. 2810 DATA27,56,34,75,11,114,,27,56,34,75,11,114,
  175. 2820 DATA30,141,51,97,15,70,,30,141,51,97,15,70,:REM BAR 8
  176. 2830 DATA12,216,20,100,7,163,"[133]SOME-",12,216,20,100,7,163,
  177. 2840 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  178. 2850 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  179. 2860 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 9
  180. 2870 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  181. 2880 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  182. 2890 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  183. 2900 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 10
  184. 2910 DATA0,0,20,100,6,206,SKIES ,0,0,20,100,6,206,
  185. 2920 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  186. 2930 DATA25,177,34,75,10,60,ARE ,25,177,34,75,10,60,
  187. 2940 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 11
  188. 2950 DATA22,227,30,141,12,216,"[133]BLUE[154],",22,227,30,141,12,216,
  189. 2960 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  190. 2970 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  191. 2980 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 12
  192. 2990 DATA0,0,17,37,10,60,"[156]AND ",0,0,17,37,10,60,
  193. 3000 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  194. 3010 DATA0,0,27,56,11,114,THE ,0,0,27,56,11,114,
  195. 3020 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 13
  196. 3030 DATA20,100,25,177,7,163,DREAMS ,20,100,25,177,7,163,
  197. 3040 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"YOU "
  198. 3050 DATA20,100,25,177,8,147,DARE ,20,100,25,177,8,147,
  199. 3060 DATA20,100,27,56,8,147,TO ,20,100,27,56,8,147,:REM BAR 14
  200. 3070 DATA19,63,22,227,5,185,"[133]DREAM ",19,63,22,227,5,185,
  201. 3080 DATA0,0,19,63,5,185,REAL-,0,0,20,100,5,185,"LY "
  202. 3090 DATA17,37,22,227,13,156,DO ,17,37,22,227,13,156,
  203. 3100 DATA19,63,15,70,25,177,COME ,19,63,15,70,25,177,:REM BAR 15
  204. 3110 DATA0,0,20,100,5,25,"TRUE.",0,0,20,100,5,25,
  205. 3120 DATA15,70,20,100,5,25,,15,70,20,100,5,25,
  206. 3130 DATA15,70,20,100,3,210,,15,70,20,100,3,210,
  207. 3140 DATA0,0,0,0,7,163,,0,0,30,141,7,163,"[137][153]SOME ":REM BAR 16
  208. 3145 DATA700,700,700,700,700,700,DREAMILY
  209. 3150 DATA0,0,25,177,0,0,DAY ,0,0,30,141,0,0,"I'LL "
  210. 3160 DATA15,70,25,177,10,60,WISH ,15,70,30,141,10,60,"UP-"
  211. 3170 DATA17,37,25,177,10,60,ON ,17,37,30,141,10,60,"A "
  212. 3180 DATA15,70,25,177,10,60,STAR ,15,70,30,141,10,60,"AND":REM BAR 17
  213. 3190 DATA0,0,27,56,0,0,"[133][158]WAKE ",0,0,30,141,0,0,"UP "
  214. 3200 DATA17,37,27,56,11,114,WHERE ,17,37,30,141,11,114,"THE "
  215. 3210 DATA20,100,27,56,11,114,CLOUDS ,20,100,30,141,11,114,"ARE "
  216. 3220 DATA19,63,27,56,11,114,FAR ,19,63,30,141,11,114,"BE-":REM BAR 18
  217. 3230 DATA0,0,34,75,0,0,"[133][129]HIND ",0,0,34,75,0,0,
  218. 3240 DATA19,63,34,75,7,163,,19,63,34,75,7,163,
  219. 3250 DATA22,224,34,75,12,216,"ME,",22,224,34,75,12,216,
  220. 3260 DATA20,100,34,75,12,216,,20,100,34,75,12,216,:REM BAR 19
  221. 3270 DATA0,0,61,126,10,60,,0,0,38,126,10,60,
  222. 3280 DATA17,37,54,111,10,60,,17,37,34,75,10,60,
  223. 3290 DATA20,100,51,97,10,60,,20,100,30,141,10,60,
  224. 3300 DATA19,63,45,198,10,60,,19,63,30,141,10,60,"[133][154]WHERE ":REM BAR 20
  225. 3310 DATA0,0,25,177,0,0,TROUB-,0,0,30,141,0,0,"BLES "
  226. 3320 DATA15,70,25,177,10,60,MELT ,15,70,30,141,10,60,"LIKE "
  227. 3330 DATA17,37,25,177,10,60,LEM-,17,37,30,141,10,60,"ON "
  228. 3340 DATA15,70,25,177,10,60,DROPS ,15,70,30,141,10,60,"[133][145]A-":REM BAR 21
  229. 3350 DATA0,0,28,214,0,0,WAY ,0,0,34,75,0,0,"A-"
  230. 3360 DATA14,107,28,214,0,0,BOVE ,14,107,34,75,0,0,"THE "
  231. 3370 DATA22,227,28,214,17,37,CHIM-,22,227,34,75,17,37,"NEY "
  232. 3380 DATA20,100,28,214,17,37,TOPS ,20,100,34,75,17,37,"THAT'S":REM BAR 22
  233. 3390 DATA22,227,38,126,19,63,"[133]WHERE ",22,227,38,126,19,63,
  234. 3400 DATA22,227,38,126,17,37,,22,227,38,126,17,37,
  235. 3410 DATA20,100,38,126,15,70,YOU'LL ,20,100,38,126,15,70,
  236. 3420 DATA20,100,38,126,14,107,,20,100,38,126,14,107,:REM BAR 23
  237. 3430 DATA22,227,45,198,13,156,FIND ,22,227,45,198,13,156,
  238. 3440 DATA22,227,45,198,13,156,,22,227,45,198,13,156,
  239. 3450 DATA24,63,34,75,14,107,ME.,24,63,34,75,14,107,
  240. 3460 DATA24,63,34,75,14,107,,24,63,34,75,14,107,:REM BAR 24
  241. 3465 DATA800,800,800,800,800,800,CHORUS
  242. 3470 DATA12,216,20,100,7,163,"[137][159]SOME-",12,216,20,100,7,163,
  243. 3480 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  244. 3490 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  245. 3500 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 25
  246. 3510 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  247. 3520 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  248. 3530 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  249. 3540 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 26
  250. 3550 DATA0,0,20,100,6,206,"BLUE ",0,0,20,100,6,206,
  251. 3560 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  252. 3570 DATA25,177,34,75,10,60,BIRDS ,25,177,34,75,10,60,
  253. 3580 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 27
  254. 3590 DATA22,227,30,141,12,216,"[133][153][145]FLY,",22,227,30,141,12,216,
  255. 3600 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  256. 3610 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  257. 3620 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 28
  258. 3630 DATA0,0,17,37,10,60,"BIRDS ",0,0,17,37,10,60,
  259. 3640 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  260. 3650 DATA0,0,27,56,11,114,FLY ,0,0,27,56,11,114,
  261. 3660 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 29
  262. 3670 DATA20,100,25,177,7,163,O-,20,100,25,177,7,163,
  263. 3680 DATA17,37,20,100,7,163,VER ,19,63,22,227,7,163,"THE "
  264. 3690 DATA20,100,25,177,8,147,"R[129]A[158]IN-",20,100,25,177,8,147,
  265. 3700 DATA20,100,27,56,8,147,"[159]BO[156]W ",20,100,27,56,8,147,:REM BAR 30
  266. 3710 DATA19,63,22,227,5,185,"[133][154]WHY ",19,63,22,227,5,185,
  267. 3720 DATA0,0,19,63,5,185,THEN ,0,0,20,100,5,185,"OH "
  268. 3730 DATA17,37,22,227,13,156,WHY ,17,37,22,227,13,156,
  269. 3740 DATA19,63,15,70,25,177,CAN'T ,19,63,15,70,25,177,:REM BAR 31
  270. 3750 DATA15,70,20,100,0,0,"I?",15,70,20,100,7,163,
  271. 3760 DATA15,70,20,100,8,147,,15,70,20,100,10,60,
  272. 3770 DATA15,70,20,100,11,114,,15,70,20,100,12,216,
  273. 3775 DATA700,700,700,700,700,700,SLOWER
  274. 3780 DATA0,0,0,0,15,70,,40,200,61,126,17,37,:REM BAR 32
  275. 3790 DATA30,141,51,97,0,0,,40,200,61,126,0,0,
  276. 3800 DATA30,141,51,97,15,70,,40,200,61,126,15,70,
  277. 3810 DATA30,141,51,97,17,37,,40,200,61,126,17,37,
  278. 3820 DATA30,141,51,97,15,70,,40,200,61,126,15,70,:REM BAR 33
  279. 3830 DATA34,75,54,111,0,0,,38,126,61,126,0,0,
  280. 3840 DATA34,75,54,111,15,70,,38,126,61,126,15,70,
  281. 3850 DATA34,75,54,111,17,37,,38,126,61,126,17,37,
  282. 3860 DATA34,75,54,111,15,70,,38,126,61,126,15,70,:REM BAR 34
  283. 3870 DATA40,200,68,149,0,0,,40,200,68,149,0,0,
  284. 3880 DATA40,200,68,149,15,70,,40,200,68,149,15,70,
  285. 3890 DATA40,200,68,149,17,37,,40,200,68,149,17,37,
  286. 3900 DATA40,200,68,149,15,70,,40,200,68,149,15,70,:REM BAR 35
  287. 3910 DATA27,56,34,75,0,0,,27,56,34,75,0,0,
  288. 3920 DATA27,56,34,75,17,37,,27,56,34,75,17,37,
  289. 3930 DATA27,56,34,75,20,100,,27,56,34,75,20,100,
  290. 3940 DATA0,0,0,0,19,63,,30,141,0,0,19,63,"[133][129]IF ":REM BAR 36
  291. 3950 DATA0,0,25,177,10,60,HAP-,0,0,30,141,10,60,"PY "
  292. 3960 DATA15,70,25,177,10,60,LIT-,15,70,30,141,10,60,"TLE "
  293. 3970 DATA17,37,25,177,10,60,BLUE-,17,37,30,141,10,60,"BIRDS "
  294. 3980 DATA15,70,25,177,10,60,FLY ,15,70,30,141,10,60,"BE-":REM BAR 37
  295. 3990 DATA0,0,27,56,11,114,"[133][153]YOND ",0,0,30,141,11,114,"THE "
  296. 4000 DATA17,37,27,56,11,114,RAIN-,17,37,30,141,11,114,"BOW, "
  297. 4005 DATA700,700,700,700,700,700,SLOWER
  298. 4010 DATA20,100,27,56,11,114,WHY ,20,100,30,141,11,114,"OH "
  299. 4015 DATA700,700,700,700,700,700,SLOWER
  300. 4017 DATA700,700,700,700,700,700,SLOWER
  301. 4020 DATA27,56,34,75,19,63,WHY ,30,141,38,126,19,63,"CAN'T ":REM BAR 38
  302. 4030 DATA27,56,40,200,0,0,"I?",27,56,40,200,15,70,
  303. 4040 DATA27,56,40,200,17,37,,27,56,40,200,20,100,
  304. 4050 DATA34,75,40,200,22,227,,34,75,40,200,27,56,
  305. 4060 DATA34,75,40,200,30,141,,34,75,40,200,34,75,:REM BAR 39
  306. 4070 DATA61,126,81,161,51,97,,61,126,81,161,51,97,
  307. 4080 DATA61,126,81,161,51,97,,61,126,81,161,51,97,:REM BAR 40 -- END OF SONG
  308. 9990 DATA 999,999,999,999,999,999,THE END
  309. 50000 REM TURN OFF SOUND GENERATOR
  310. 50020 FORQ=54270TO54300:POKEQ,0:NEXT
  311. 50040 RETURN
  312.